!L$Q5pк Courier Newf3fJT*WINSPOOLHP LaserJet 4Si/4SiMX PS\\msprint32\privjLHP LaserJet 4Si/4SiMX PSw odXX0| RdCustom page 1BBCustom page 2BBCustom page 3BBDRIVER=WINSPOOL DEVICE=HP LaserJet 4Si/4SiMX PS OUTPUT=\\msprint32\privj ORIENTATION=0 PAPERSIZE=1 PAPERLENGTH=2794 PAPERWIDTH=2159 SCALE=100 COPIES=1 DEFAULTSOURCE=7 PRINTQUALITY=600 DUPLEX=2 YRESOLUTION=600 TTOPTION=3 campaign.campaignidTahoma"Campaign Summary" campaign.nameTahomacampaign.chairTahomacampaign.descriptTahomacampaign.notes Tahomacampaign.launchdateTahomacampaign.enddateTahoma campaign.goal Tahoma"@ $ 9,999,999.99"Tahoma"Campaign Name"Tahoma "Chairperson"Tahoma "Description"Tahoma"Notes"Tahoma "Launch Date"Tahoma "Ending Date"Tahoma"Fund Raising Goal"Tahoma"Total Pledges"Tahoma "Total Paid"Tahoma "% of Target"Tahoma"# of Pledges"pledges.amountpled Tahoma"@ $ 9,999,999.99"pledges.amountpled Tahoma "@ 9,999"&IIF(pledges.paid,pledges.amountpled,0) Tahoma"@ $ 9,999,999.99"totpaid / campaign.goal * 100 Tahoma "@ 9,999.99%"totpaidpledges.amountpled0 Courier NewTahomaTahomaTahomadataenvironmentLLeft = -20 Top = 105 Width = 792 Height = 479 Name = "Dataenvironment" rPROCEDURE Init SET FILTER TO pledges.amountpled#0 ENDPROC PROCEDURE BeforeOpenTables SET DELETED ON ENDPROC  .%gUG(UPLEDGES AMOUNTPLED G UInit,BeforeOpenTablesZ1!2a12Yg) < hhXcursorLeft = 10 Top = 20 Width = 95 Height = 90 Alias = "campaign" Database = ..\data\campaign.dbc CursorSource = "campaign" Name = "Cursor1" cursorLeft = 278 Top = 15 Width = 95 Height = 90 Alias = "pledges" Database = ..\data\campaign.dbc CursorSource = "pledges" Name = "Cursor2" relationParentAlias = "campaign" RelationalExpr = "campaignid" ChildAlias = "pledges" ChildOrder = "campaignid" OneToMany = .T. Name = "Relation1" relationParentAlias = "campaign" RelationalExpr = "campaignid" ChildAlias = "pledges" ChildOrder = "campaignid" Name = "Relation2"